Libris Britannia 4/science library(b).zip/science library(b)/HAM_RAD/LOGGING/3090.ZIP/ADDSTATE.PRG

Text File | 1987-03-10 | 1KB | 54 lines

* ADDSTATE.PRG
* CALLED BY HAM.CMD
* REV 07/02/83
* REV 03/08/87 FOR USE ON PC
SET TALK OFF
USE STATE INDEX STATE
SET INDEX TO STATE
DO WHILE .T.
CLEAR
@ 0,0 SAY 'ENTER [ END ] TO EXIT'
@ 0,30 SAY '****STATE CHECKLIST****'
ACCEPT 'STATE: ' TO MSTATE
STORE UPPER(MSTATE) TO MSTATE
    IF MSTATE = 'END'
       RETURN
    ENDIF
LOCATE FOR STATE=MSTATE
    IF EOF()
       @ 12,40 SAY 'STATE NOT FOUND'
       @ 13,40 SAY 'CHECK ABREVIATION'
       WAIT
       CLEAR
    ELSE
       @ 5,0 SAY 'STATE'
       @ 5,6  SAY 'SSB'
       @ 5,10 SAY 'CW'
       @ 5,14 SAY 'S2'
       @ 5,18 SAY 'S6'
       @ 5,22 SAY 'S10'
       @ 5,26 SAY 'S15'
       @ 5,30 SAY 'S20'
       @ 5,34 SAY 'S40'
       @ 5,38 SAY 'S80'
       @ 5,42 SAY 'C2'
       @ 5,46 SAY 'C6'
       @ 5,50 SAY 'C10'
       @ 5,54 SAY 'C15'
       @ 5,58 SAY 'C20'
       @ 5,62 SAY 'C40'
       @ 5,66 SAY 'C80'
       DISPLAY OFF
       ? RECNO()
       ?
          ACCEPT 'AMMEND: ' TO MAMMEND
          STORE UPPER(MAMMEND) TO MAMMEND
              IF MAMMEND = 'Y'
                 EDIT
              ENDIF
    ENDIF
RELEASE MSTATE
RELEASE MAMMEND
CLEAR
ENDDO